(define shift
  (native_function "
    Proc.new do |argument, interpreter|
      list = interpreter.evaluate(argument[0])
      list.shift
      list
    end
  "))
